﻿Imports MICROFORMA.BEL
Imports MICROFORMA.DAL

Public Class RepositorioBL


    Private _RepositorioDA As RepositorioDA = Nothing

    Public Sub Add(ByVal RepositorioBE As RepositorioBE)
        _RepositorioDA.Add(RepositorioBE)
    End Sub


    Public Function getList() As DataTable
        Return _RepositorioDA.GetList()
    End Function
    'Public Sub Modificar(ByVal RepositorioBE As RepositorioBE) Implements IRepositorioD.Modificar
    '    IRepositorioD.Modificar(RepositorioBE)
    'End Sub

    'Public Sub Eliminar(ByVal RepositorioBE As RepositorioBE) Implements IRepositorioD.Eliminar
    '    IRepositorioD.Eliminar(RepositorioBE)
    'End Sub

    'Public Function Listar() As RepositorioBECollection Implements IRepositorioD.Listar
    '    Return IRepositorioD.Listar()
    'End Function

    'Public Function BuscarPorId(ByVal idRepositorio As Decimal) As RepositorioBE Implements IRepositorioD.BuscarPorId
    '    Return IRepositorioD.BuscarPorId(idRepositorio)
    'End Function

    Public Sub New()
        _RepositorioDA = New RepositorioDA
    End Sub

End Class



